﻿
Partial Class Site
    Inherits System.Web.UI.MasterPage



    Protected Sub HeadLoginView_ViewChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HeadLoginView.ViewChanged
        FormsAuthentication.SignOut()

        Response.Redirect(Request.UrlReferrer.ToString)

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objUsuario As New clsUsuarios

        If HttpContext.Current.User.Identity.IsAuthenticated Then
            objUsuario.DoBuscaUsuario(HttpContext.Current.User.Identity.Name.ToString)
            lblUsuario.Text = objUsuario.NombreCompleto

        End If


    End Sub

End Class

